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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL See CE AVER. CORPORATION, - MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 


OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
Se pokat ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR + oaguamaagesei OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL 
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++ 
; FACILITY: VAX MACRO ASSEMBLER OBJECT LIBRARY 
; ABSTRACT: 


; The VAX-11 MACRO assembler translates MACRO-32 source code into object 
; modules for input to the VAX-11 LINKER. 


; ENVIRONMENT: USER MODE 
; AUTHOR: Benn Schreiber, CREATION DATE: 21-AUG-78 
; MODIFIED BY: 
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v03.01 MTROO11 Mike Rhodes 18-Mar-1982 
Add logic to routine MACSGETLIN to trap non-RMS$_EOF errors 


and non-SUM$_xxx errors. This occurs when an ilTegal record 


is encountered by RMS and it does not count as a SUM error, 


which leaves us in an infinite loop trying to read the next Line. 


ah QAR #691. 


v03.00 MmTROO06 Mike Rhodes 15-Mar-1982 
Modify MACSGETCHR to athe ALL characters to be passed 


when the FLGSV_DLIMSTR flag is set. The characters allowed 
to be passed include the semicolon (which was already passed) 


and the hyphen, which at = nee was tncorcect)y tf Ereeter as a 
Line continuation character. Fixes SPR #11-42904 


v01.10 RNOO23 R. Newland 3-Nov-1979 
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MACSINPUT 
V0s-000 SEP=19 MACRO.SRCJINPUT.MAR; 1 (1) 


op0 58 ; New message codes to get error messages from system 
$8 23 : message file. 

000 61: v01.09 RNO010 R. Newland 5-Sep-1979 

448 6¢ : Mulitpage MXB blocks 

0000 64; v01.08 RNO00S R. Newland 27-Aug-1979 

Be i : Remove .ALIGN LONG statements 

0000 67: v01.07 RNOO02 R. Newland 01-Feb-1979 

0000 68 ; Changes for Source Update Merge, Get input Lines 
0000 69 ; from SUMS$LINE. 

0000 70 ; 

0000 71 3-- 
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042000 DECLARATIONS g-8e “SEP -1982 84: 28: i§ YMACRO SRe INPUT.MAR; 1 ° (2) 

0 73 -SBTTL DECLARATIONS 

$8 74 ; 

3 o ; INCLUDE FILES: 

838 8 

0000 78 ; 

0000 79 ; MACROS: 

0000 80 ; 

0000 81 DEF ; DEF INE RAB OFFSETS 

0000 Ht $ _GENVALDEF VAX-11 MACRO GENERAL SYMBOLS 

0000 8 SMAC_CTLFLGDEF ‘CONTROL FLAGS 

0000 Be SMAC_INTCODDEF ; INTERMEDIATE CODE rae syea.s 
Boge 5 SMAC_INPBLKDEF ;DEFINE INPUT BLOCK OFFSETS 

003C 86 SMAC_SYMBLKDEF :DEF I NE Mn BLOCK OOFreETS 

0000 87 $SMAC_MNBDEF DEF I NE M FSETS 

0000 88 SMACMSGDEF : Define ts. codes 

0000 89 SSTSDEF t STATUS BITS 

0000 90 DEF SUMCBL : Define SUM control block symbols 
0000 91; 

0000 a 

4 93 ; 

0000 94 ; EQUATED SYMBOLS: 

0000 95 3 

0000 96 

0000 97 ; 

0000 98 ; OWN STORAGE: 

0000 99 ; 
0000 3 100 
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404.000 MACSGETCHR GET NEXT CHARACTER FROM INPUT 'SaSEP-19RG Siicoigo MACHO SRT TAPUS mags t ~~ 
909 108 .SBTTL MACSGETCHR GET NEXT CHARACTER FROM INPUT STREAM 
808 : ¢ ; * FUNCTIONAL DESCRIPTION: 
0000 106: THIS ROUTINE IS CALLED WHENEVER A NEW CHARACTER IS NEEDED 
0000 107: IT PERFORMS ALL THE HOUSEKEEPING FOR ENDS OF LINES, OUTPUTS 
0000 108 ; COMMANDS TO THE INT. FILE FOR NEW LINES, AND HANDLES. CONTINUATION 
0000 109 : LINES. 
0000 110: 
0000 111 : CALLING SEQUENCE: 
te EE JSB -s- MACSGETCHR ‘ 
0000 114: 
0000 115 : INPUT PARAMETERS: 
0000 116: 
0000 117: R10 LAST CHARACTER READ 
0000 118: R11 POINTS TO FLAGS (MACS$GL_FLAGS) 
0000 119: IF FLGSM_ALLCHR Is SET THEN SEMICOLONS WILL ont PASSED 
0000 120 ; BACK. IF THE FLAG 'S CLEAR, SEMICOL ONS AND 
4 1s) : EVERYTHING FOLLOWING WILL BE IGNORED. 
0000 123 : IMPLICIT INPUTS: 
0000 124: 
0000 125: NONE 
0000 126: 
0000 127 : OUTPUT PARAMETERS: 
0000 128: 
0000 129: R10 NEXT CHARACTER 
0000 130: 
0000 131 : IMPLICIT OUTPUTS: 
0000 132: 
0000 133: NONE 
0000 134: 
0000 135 : COMPLETION CODES: 
0000 136: 
0000 137: NONE 
0000 138: 
0000 139 : SIDE EFFECTS: 
0000 140: 
0000 141: NONE 
0000 148 ; 
0000 143 :-- 
0000 144 
0000 145 
0000 146 
00009000 147 .PSECT MACS$RO_CODE_P15,NOWRT,GBL,LONG 
0000 149 .ENABL LSB 
9009 150 
000 151 MACSGETCHR:: 
DD 0000 138 PUSHL RB :SAVE RB 
9E 000¢ 153 10$:  MOVAB W*MACSGL_LINEPT,R8 :POINT TO MACSGL_LINEPT 
91 0007 154 20S: CMPB —s_- R10,, #CR TIME TO READ NE@ LINE? 
12 000A 155 BNEQ 308 | F NEQ NO 
9A 000C 136 25$:  MOVZBL #BL : YES--PREVENT LOOP ING ON CR 
DO O00F 15 MOVL MrT th INPUTP.RO SADDRESS INPUT 
C8 0014 158 BISL2 #FLGSM_CONT, (R11) SALLOW CONTINUATION LINES 
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MACSINPUT GET NEXT CHARACTER 16-SEP-1984 02:2 AX/VMS Macro V04-00 Page 
v04-000 MACSGETCHR GET NEXT CHARACTER FROM INPUT g- Ser 7 8: : 48 YAK, SRCJINPUT.MAR; 1 . 3) 
08 B80 16 0017 159 JSB aINPSL 6 L(RO) :CALL INPUT ROUTINE TO READ NEXT LINE 
E9 6B 10 €0 OO1A 160 BBS #FLGSV~ RACTXT (R11),20$ :BRANCH IF READING MACRO TEXT 
OO1E 161 SINTOUT_WD INTS_N YES==-SIGNAL NEW LINE FOR PASS2 
dig 166 RUARACSGL _LINENUM> 
pec 31100 16 BRB 20$ NT INUE 
5A 00 B8 9A 0028 164 30$:  MOVZBL @(R8),R10 [GET NEXT CHARACTER 
68 06 OO2F 165 INCL (RB) [POINT TO NEXT CHARACTER 
5A 05 0031 166 TSTL R10 ‘WAS CHARACTER A NULL? 
F6 «= 13—«00 3 16 BEQL  30$ IF EQL ves-<cET NEXT CHARACTER 
0035 168 (GOD ONLY KNOWS WHERE NULLS COME FROM!) 
03 68  2F é1 0035 169 BBC #FLGSV_DLIMSTR, (R11), 358" s ALLOW SEMICOLONS AND HYPHENS? 
0078 31 0039 170 BRW 150$ :YES == BYPASS OTHER TESTS. 
OE 68 1A £0 005¢ 4 35$: BBS #FLGSV_SPLALL,(R11),40$ ; : BRANCH ie shOULD NOT EVEN CONSIDER 
3B) OCSAtCOS? 9049 158 CMPB sa R10, #SEMI 1S CHARACTER A SEMI-COLON? 
09 12 0043 17% BNEQ 408° IF NE 
06 68 €8 0045 175 BLBS  (R11),40$ ‘YES SCAND ARE WE PASSING ALL CHARS. ? 
0048 176 > (ALLCHR IS LOW BIT 
5A 0D 9A 0048 177 MOVZBL #CR,R10 tNO=-CALL IT EOL 
0069 31 0048 178 BRW 150$ TAKE THE QUICK EXIT 
20 SA 91 O04E 179 40S: CMPB = R10, #HYPHEN iLINE CONTINUATION? 
64 12 0051 180 BNEQ 1508 :IF NEQ NO 
60 68 03 €1 0053 181 BBC #FLGSV_CONT,(R11),150$ i ¥ES~=CONT INUAT IONS ALLOWED? 
5A DD 0057 182 PUSHL R10 SYES=-SAVE CURR ENT STATE 
68 od 0059 18 PUSHL (RB) ‘SAVE MAC$SGL_LINEPT 
7E 6B FFFFFFFE 8F (CB 005B 184 BICL W*CCELGSN ALLCHR>,(R11),-(SP) ;SAVE “ILLGHR STATE 
68 09 CA 0063 185 BICL2 #FLGSM_CONT!FLGSM. ~ALLCHR, (R11)° :DON'T RECURSE ON LINES THAT HAVE 
5A 20 9A 0066 186 MOVZBL PBLNK K,R10 ALL HYPHENS. 
20 SA 91 0069 187 60$: CMPB ss R10, #BLNK 1S CHARACTER A BLANK? 
05 13 006C 188 BEQL 70$ SIF EQL 
09 SA 91 O06E 189 CMPB  =—s_- R10, #TAB iNO~=1S If A TAB? 
05 12 0071 190 BNEQ 80% ‘IF NEQ NO 
FF8A 30 0073 191 70$:  BSBW  MACSGETCHR ‘YES=-SKIP OVER SPACES AND TABS 
Fl 11 0076 19 BRB 60$ ‘FIND NON-BLANK,NON-TAB CHARACTER 
0 SA 91 0078 193 80$: CMPB = R10, ACR 71S THIS EOL? 
2E 12 007B 194 BNEQ 1 :1F NEQ NO 
68 8& CB 007D 195 BISL2 (SP)+,(R11) SYES=-RESTORE ALLCHR FLAG 
5E 08 CO 0080 196 ADDL2 #2%4,SP SAND SAVED CONTEXT NOT NEEDED 
FF7A 30 0083 197 BSBW  MACS$GETCHR [READ NEXT LINE 
04 68 OD £1 0086 198 BBC #FLGSV_OPRND,(R11),90$ :BRANCH IF NOT IN OPERAND. FIELD 
06 68 14 €3 OO8A 199 BBCS #FLGSV~CHKLPND, (R14), 1008 SET CHKL PENDING AND BRANCH IF NONE PENDI 
O08E 200 90$:  $INTOUT_X INT$~CHKL sENSURE ALIGNMENT OF CONTINUED LINES 
0D SA 91 0096 201 100$: CMPB ~R10,#CR [NULL LIN E? 
0 13 0097 208 BEQL 1208 [IF EQL YES 
0c SA 91 0099 20 CMPB =s-aR10,, #FF STILL LOOKING FOR NULL LINES 
05 13 009C 204 BEQL =_—«+1108 
3B OSACOQ*M O09 205 CMPB Ss R10, #SEMI ; 
11 12 OOA1 206 BNEQ 1408 
SA OD 9A OOA3 207 .110$: MOVZBL #CR,R sTREAT AS EOL IF NULL 
FF57 30 O0A6 08 120$:  BSBW mA ACEGETCUR TREAD NEXT LINE 
E911 O0A9 09 BRB :FIND NON-NULL LINE 
ae 1 t NOT REALLY A CONTINUED LINE 
68 8E& (C8 bag i 130$: BISL2 (SP)+,(R11) TRESTORE ALLCHR FLAG 
68 BEDO OOAE 214 POPL (RB) *RESTORE MACS$GL_LINEPT 
SA 8EDO 0081 15 POPL R10 TRESTORE CHARACTER 
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= N - - 48: .S! NPUT .MAR; 
v04 bbe MACSGETCHR GET NEXT CHARACTER FROM INPUT g SEP-1984 94 28 8 MACRO.SRCJINPUT.M 1 
6B C 0B4 16 140$: BISL2 #FLGSM_CONT, (R11) ;ALLOW CONTINUATIONS AGAIN 
8 aeD0 dD? 13 1808; POPL R8 os 3R 
0 BA 18 ;RETURN WITH CHARACTER IN R10 
0088 19 
0088 20 -DSABL LSB 


Page (3) 
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v04-000 MACSGETLIN GET NEXT INPUT SOURCE LINE met be: 2:38 EMACRO SRe INPUT .MAR; 1 . (4 
goes § -SBTTL MACSGETLIN GET NEXT INPUT SOURCE LINE 
0086 4 ;++ 
08B > THIS ROUTINE IS CALLED TO GET THE NEXT LINE OF THE CURRENT 
pees $ ; INPUT FILE AND PLACE IT IN MACSAB_LINEBF. 
0088 8 
00BB 9 -ENABL LSB 
0088 0 
0088 31 MACSGETLIN:: 
50 0000'CF 9E 0088 3 MOVAB Sertair te RAB,RO ;POINT TO THE RAB 
OOOO'CF DF O0CO ; PUSHAL AC$GT_SCB ; Control block address 
O0000000'GF 01 FB 00C4 4 CALLS 1 meee Gms. INE : Get next input Line 
50 €8 00CB 35 L 3; If LBS then good read 
Q00000000'8F 50 D1 OOCE 236 CMPL RO, *#RMSS EOF : ves eerec end-of-file? 
27) 03=6©13:«©000D5)=—Ss 237 BEQL Yes if EQL, try next file 
51 50 oc 10 EF Q0D7 238 EXTZV #STS$V_FAC_NO,#STSS$S FACINDSRO,R1 3; Get tacility no 
0084 8F 51 B11 OODC 239 CMPW R1,#<SOM$_NORMAL@-165 = SUM error? 
0c 13 OOE1 240 BEQL 3; Yes if EQL 
51 50 =FFFFFFFS 8F CB OOE3 241 BICL3 #*CSTSSM_SEVERITY,RO,R1 ; i and check the severity 
CE 13 OOEB $5 BEQL MACSGETLIN 3 ING, try again 
OF 11 QOED 24 BRB $ ; ERROR or FATAL, ery next file 
05 68 OE EO OOEF 244 28: BBS #FLG$V_P2,(R11),5$ ; Return Line if P 
OOAF 30 OOF3 245 BSBW SUM_ERROR : Generate rth K. code if Pass 1 
wa. bOrs $$ - BRB MACSGETLIN 
OOOO'CF D7? OOF8 248 DECL W*MACSGL_LINENUM ; Don't increment Line number 
3D 11. OOFC 249 BRB 40$ 
OOFE 250 8$: 
OOFS 30 OOFE 251 BSBW MACSNXTINPFIL ;ELSE TRY TO opi NEXT FILE 
0000'CF 01 9A 0101 $2¢ MOVZBL #1,u*MACSGL_SRCPAG sRESET PAGE COUNT ON 
E8 0106 25 BLBS ee MACSGETLIN > IF THERE a ANOTHER FILE , 00 READ IT 
0000'CF 444E452E 8F DO 0109 254 108: MOVL #A/. END/ ,W*MAC$AB LINEBF Sgt rena FILE--FAKE A °.END' 
0022'CF 04 98 Bti¢ 255 MOVZBW #4, W*MACS INPUT RABRABSW -RSZ ;WITH A SIZE OF 4 BYTES 
0000'CF DS 011 256 TSTL W“MACSGL_I LEVEL zIN UNFINISHED CONDITIONAL? 
Oc 15 0118 257 BLEQ Sos F LEQ NO 
0004 'CF 43 8F 90 011D 258 MOVB #*A/C/, unten LINEBF +4; ror t -END INTO .ENDC 
0022'CF B6 0123 259 INCW W*MACSINPUT _RABFRABSW_ RSZ ; COUNT THE CHARACTER 
12 11 0127 260 BRB 40 s CONT NUE 
OE 6B OE EO 0129 261 30$: BBS #FLGS$V_P2,(R11), 408 SONLY MESSAGE ON PASS 1 
012D $66 pure SINTOUT_X X INTS"F NEWL ‘PRIN NT CONTENTS NoF PREVIOUS LINE 
012D 26 SINTOUT-LW INTs. URNS - sTELL OF MISSING END STATEMENT 
O1¢D 264 <#MACS TRISSINGERD. 46> 
ee" 3¢ $138 $63 40$: MOVZWL~ ieenee* te RAB+RABSW_RSZ,- ;SAVE LENGTH OF LINE 
O000'CF 50 00 o140 67 MOVL RO,W°MACSGL_LINELN ee 
50 Q000'CF 9E 14 68 50$: MOVAB W*MACSAB LIRNEBF ,RO 3;GET ADDRESS OF LINE BUFFER 
0000'CF 50 DO 016A 269 MOVL RO,W°MACSGL_LINEPT [SET UP LINE POINTE 
0000' CF 50 dO 14F 70 MOVL RO WemACSeL  ERRPTX sRESET ERROR POINTER TO LINE START 
C 60 91 0154 271 CMPB ss (RO) LFF [NEW SOURCE PAGE? 
04 12 B22 ts BNEQ 608 :1F NEQ NO 
0000'CF D6 159 7 INCL W*MACSGL_SRCPAG ;YES--COUNT NEW PAGE 
50 Q000°CF co 8128 74 60$: ADDL2 wW*MACSGL~ _LINELN,RO sFIGURE ADDRESS OF LAST CHARACTER 
60 OD 90 16¢ 75 MOVB #CR, (RO)~ sSTORE CR FOR END OF LINE 
0000' CF D6 16 06 INCL  WMACSGL LINENUN :COUNT THIS LINE 
04 68 OE E 169 7 BBS #FLG$V_P2,(R11),80$ sBRANCH IF THIS IS PASS 2 
0000' CF D6 16D 78 INCL SHACSCL “eRe LCNT sNO--COUNT LINE READ IN PASS 1 
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v04-000 MACSGETLIN GET NEXT INPUT SOURCE LINE ety §4:28:59 EMACRO. SRC INPUT .MAR; 1 (4) 
171 79 808: 
51 04 0171 0 CLRL ; Initialise insert number 
13 68. 27 EO ifs 1 BBS LG$V_UPDFIL,(R11),90$ ; Branch if file is being updated 
O000'CF O000'CF C3 017 ¢ SUBL3 W*MACSGL_LINBAS, - ; Compute Line number 
50 017E 8 “MACSGL_LINENUM,RO 
17 68 19 «€1 OQI7F 84 BBC FLG$V_SEQFIL,(R11),100$ ; Branch if not sequenced file 
50 O000'CF DO 0183 285 MOVL  W*MACSGL_RECHOBUF,RO  ; Get sequenced Line number 
10 = 11 01 : 6 90$ BRB 0$ 
50 QO18°CF 3C O18A 88 MOVZWL W*MACSGT SCB+SUM_W_LINE_NO,RO ; Get original Line number 
001C"CF Ge ET O18F 289 BBC SUM_V_SRCUPD, = ; Branch if line from source file 
0 194 290 W*MACSGT_SCB+SUM_B_FLAGS, 100$ 
51 OO1A'CR §3¢ 195 31 ian MOVZWL W*MACSGT"SCB+SUM-W-INSERT_NO,R1 ; Get insert number 
OOOO'CF 50 B80 Q19A 38 MOVW RO,W*MACSGW_LST_LINE ; Save Listing Line number 
OOOO'CF 51 BO O19F 94 MOVW R1,W*MACSGW_LST_INST ; and insert number 
05 O1A4 95 RSB 
Q1A5 96 
Q1AS = 297 -DSABL LSB 
O1A5) = 2.98 
O1A5 $33 : 
01A5 300 SuM_ERROR: : 
OOOO'CF D5 QO1A5 301 TSTL W*MACSGL_LINENUM ; Error on very first Line? 
04 12 OQ1A9 306 BNEQ 53 ; No if NEQ 
00 68 29 €E2 ne $03 5$ BBSS #FLGSV_FIRSTLN, (R11) ,5$ 
00848800 8F 50 D1 O1AF 305 CMPL RO,#SUM$_EDITSCLSH 3; Edits clash error? 
22 12 0186 306 BNEG = 4$ ; No if NEQ 
QOOOOOIC"EF O03 £0 0188 307 BBS #SUM_V_SUBCLSH, - ; Branch if not first clash 
2F O1BF 308 MACSGT_SCB+SUM_B_FLAGS, 10$ 
50 od 01C0 309 PUSHL _ RO 
Bite 31 SINTOUT_X INTS_FNEWL ; Force new Line 
50 8EDO OIC 311 POPL : 
50 03 C8 01CB $15 BISL2  #STSS$K_INFO,RO ; Make and information code 
O1CE 31 SINTOUT_LW INTS_INFO,<RO,#0> : Information message 
15 11 0108 314 BRB 10$ 
Q1IDA 315 4$: 
50 DD O1DA 316 PUSHL _ RO 
01DC 8317 SINTOUT_X INTS_FNEWL ; Force new Line 
50 8EDO O1E2 $8 POPL ‘ 
nee 313 ane SINTOUT_LW INT$_WRN,<RO,#0> ; Warning message 
O1EF $5) SINTOUT_X INT$S_SUME ; Source update merge error 
05 O1F5 22 RSB 
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v06~000 OPEN NEXT INPUT SOURCE FILE ~3Ep= 1984 $7528: 39 UMACRO. SRe INPUT .MAR; 1 = (5) 


~-SBTTL OPEN NEXT INPUT SOURCE FILE 


++ 


8 6 4 
: 
6 6 7: THIS ROUTINE IS CALLED TO OPEN THE NEXT INPUT FILE. 
6 8; If THE FILE I$ SUCCESSFULLY OPENED AND CONN 
O1F6 9: RO IS SET TO 1. IF ANOTHER INPUT FILE CANNOT BE OPENED, 
01F6 0; RO IS 0. 
O1F6 4 : 
O1F6 ¢ pes 
01F6 
O1F6 4 MACSNXTINPFIL: 
0 4 5 USHR #*M<R1,R2 R3, R4,R5> ;SAVE REGISTERS USED BY MOVCS 
0000'CF 8 4 PUSHAB U-RACSG! : Supply SUM control block address 
00000000'GF 01 O1FC 337 LLS G*SUM mseL OSE : Close ect thes e files 
0203 338 SDIScownect RABSW*MACSINPUT RAB :DISCONNEC I E “RECORD ACCESS 
50 0000'CF 02 : 39 MOVL  WMACS$GL_CURINFDB,RO  :POINT FDB 
0 40 SCLOSE FAB= by > CLOSE THEY LE 
0000'CF 021D 341 MOVL = W*MACSGL_LINENUM, ~ ;SET LINE BASE Vio HIGHEST LINE NUMSER 
0000'CF 0221 342 “MACSGL_LINBAS : ... 
27 20 6€ 00 0224 34 MOVCS #0,(SP), #°A/ /,439,- | :BLANK FILL THE RESULTANT FILENAME 
0000°CF 0229 344 MACSAB S61 FILE 
0000'CF DO O2e¢ 345 MOVL W*MACS$GL WURINFDE R :GET ADDRESS OF FDB WE JUST CLOSED 
0004'CF 50 D1 0231 346 CMPL RO, W*MACSGL_ INpauE Se WAS IT THE LAST FDB 
09 13 0236 347 BEQL ©- 208 [IF EQL YES 
50 60 p00 0238 348 MOVL (RO), RO NOMCL INK TO NEXT FDB 
FDC2' 30 0238 349 BSBW MACSOPEN INPUT [OPEN NEXT INPUT FILE 
3—E BA O23E 350 POPR #°M<R1,RZ2,R3,R4,R5> RESTORE REGISTERS 
05 0240 351 RSB *RETURN WITH LBS IN RO 
0241 $26 : 
0241 353 : NO MORE INPUT FILES 
0241 354 : 
50 04 0241 355 2308: CLRL = RO ;INDICATE NO MORE FILES 
3E BA 0243 356 POPR #*M<R1,R2,R3,R4,R5> 
05 0245 357 RSB 
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»~SBTTL STATS SWITCH INPUT TO MACRO TEXT 


soe 
; FUNCTIONAL DESCRIPTION: 


THIS SEMANTIC ROUTINE SWITCHES THE POINTER TO THE CURRENT 

INPU BLOCK TO POINT TO THE MACRO BEING EXPANDED. FIRST THE 

Pays MACRO te wet hs ARE SCANNED AND AN INPUT BLOCK IS SREATED.. 
THEN MACSGETCHR WILL READ CHARACTERS FROM THE MACRO TEXT 

EXPANDER MACSGET_MAC_LIN. 


-PSECT MAC$RO_CODE_P1,NOWRT,GBL,LONG / 
STAT4:: ‘STATEMENT = MACTK 
BLBS — W*LSTSG_MACROCALL+SYMSL_VAL, 10s ; BRANCH IF LISTING MACRO CALLS 
SINTOUT_LW INT$~SETLONG, <#0 WMATSGL LIST IT> ;NO=-SEND FLAG TO PASS 2 
10S: MOVL WPMACSAL VALSTACKLR?), R6 ; GET PIR TO f CRO MNB 


MOVZBL #CRFESK_REF,R THI REFERENCE 
BSBW | MACSCREF MACRO > CROSS REFERENCE IF CREF FING 
TSTL § MNBSL_TXTP(R6) [I$ THERE ANY TEXT 
BEQL 20$ TIF EQL NOwSTA AKE THE Quick OUT 
MOVL R6,W*MACS$GL_MACPTR [SAVE POINTER TO MACRO M 
MOVL  MNBS$L ARGP (RG), we MACSGL _KEYMAC ;SET PTR 10 KEYWORD ARGS (IF ANY) 
BSBW  MACS$GET_A :SCAN REAL MACRO ARGS 
AND SET UP INPUT BLOCK 
CLRL  W*MACSGL_KEYMAC SCLEAR POINTER TO KEYWO 


ARGS 
aoe W*MACSGL_BLKPTR, W°MACSGL_ INPUTP ;POINT TO ney INPUT BLOCK 
BBC #ELGS$V_MACTXT, (R11) ,20$ FELAG READING MACRO TEXT 

g08: nvzBL #CR,R10 sFORCE READING OF NEW LINE 


ao 
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~-SBTTL MEXIT MACRO EXIT ROUTINE 


p++ 
; FUNCTIONAL DESCRIPTION: 


THIS ROUTINE POPS THE INPUT food bY ONE LEVEL TO EFFECT AN 
EXIT FROM A MACRO OR REPEAT=TYPE MACRO 


DIRECTIVE = KMEXIT 


-SBTTL MACSPOP_INPUT POP INPUT CONTEXT UP A LEVEL 


* 
FUNCTIONAL DESCRIPTION: 


THIS ROUTINE POPS THE INPUT CONTEXT A LEVEL. 
ALLOCATED TO THE CURRENT INPUT BLOCK ARE 


L. ALL PAGES 
DEALLOCATED. 


;SAVE R6 
’ ;GET POINTER TO yey INPUT BLOCK 
#FLGSV_MACTXT ? ,10$ ;BRANCH IF NOT READING MACRO TEXT 


INPSL_RPTCNT(R6 : 
10$ tIF GEQ NO NEED TO GO ANY FARTHER 
RO iF eat IT WAS REPEAT THAT WENT TO 0 


Os fd 
WAS MACRO REDEFINING ITSELF 
#”x80000000, INPSL_ RPTENTiRG), “he iYES==GET ADDRESS OF MNB 
MACSDEL_MAC_ DEF :AN D DELETE THE MNB AND ASSOCIATES 
: REOGET THE INPUT BLOCK ADDRESS 


;POP INPUT CONTEXT 
RO,W°MACSGL_INPUTP 
RO, #MACSGL _ PRMINBL ‘READING FROM SOURCE FILE? 


SIF N 
#FLGSV_MACTXT,(R11),20$ :YES--CLEAR MACTXT FLAG 
INP$L_TFVAL(R6) ,W°MACSGL_IF_VALUE :POP IF V ALUE 


Rb 
W*MACSGL_INPUTP 


INP SL IFLVL(R6) ;W*MACSGL— IF prey VEL P IF lev VEL 
R TCOPY but BLOCK ADDRESS 
TNPSL PAGP(R6) ,R6 ;LINK 10” ANY OTHER PAGES 
MACSDEA_1_PAGE Deallocate block ( ore | pe ge) 
40$ :GO DEALLOCATE INPUT "210 K AND REST 
‘OF INPUT CONTEXT PAGE 

MXBSL_LINK(R6) ,R6 : Link to possible next page 
MACSDEAL_BLOCK ; Deallocate memory bloc 

R6,R0 sPOINT ~. FOR NEXT DEALLOCATION 
o$ SIF NEQ GO DO IT 

#CR,R10 *FORCE New LINE 

R6 sRESTORE R6 
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MACSINPUT GET_NEXT CHARACTER 16-SEP-1984 02:20:1 AX/VMS Macro V04-00 Page 12 
V06-000 STATEMENTS END-OF=LINE CLEANUP 823 p=1 984 89:28:39 (MACRO. SRe INPUT .MAR; 1 ’ (8) 
one re -SBTTL STATEMENTS END~OF=LINE CLEANUP 
CAB 29 +t 
v4 ie9 : AFTER EACH STATEMENT SOME FLAGS NEED TO BE RESET. 
QOAB 128 
QAB 455 ;MTXTI sMARS_TEXT = STATEMENT 
QOAB 454 ;MTXT2:: s;MARS_TEXT = MARS_TEXT STATEMENT 
QOAB 455 MIXT3:: sMARS_TEXT = BEOL 
QOAB 456 MIXT4:: ;MARS_TEXT = MARS_TEXT DEOL 
QOAB 457 MTEXT: 
Rane 458 s;BEFORE FOR THIS LINE 
QAB 459 SINTOUT_X INTS_CHKL ;ALIGN LISTING AND SOURCE 
00000046 8F C8 00B1 460 BISL2 “#FLGSM_ “BOL TFLGSM. EVALEXPR!FLGSM_COMPEXPR,- ;RESET BEGINNING OF LINE 
68 00B7 461 (R11) ;AND_ EVALUATE Mong 
QOOO'CF D4 0088 186 CLRL W*“MACSGL_ABSFLAG sRESET ABSOLUTE FLAG 
site D4 OOBC 46 CLRL W*MACS$GL_ “poste te Ee onintee PSECT YET 
QOOO'CF D4 QOCO 464 CLRL W*MACSGL"MOPPTR OINTER TO re MODE BYTES 
6B 01802000 af CA 00C4 465 BICL2 #FLGSM_ OPRND'FLGSM_ IFSTATIFLOSM. PNORER CR sNOT IN OPERAND FIELD 
OOCB 466 2 D IN AN IF 
0OCB 3 467 AND ALLOW PRMSYM TO REF SYMBOLS 
QOOO'CF 02 90 OOCB 468 MOVB #ROXSV_DECIMAL ,W*MAC$GB_RDXNDX :RESET TO DECIMAL RADIX 
00D0 469 RSB 
00D1 70 
0001 71 


| 
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| MACSINPUT GET NEXT CHARACTER 197 36e- 138? per 20: 18 ord dy Macro V04-00 Page 16 
| Symbol table “SEP=1984 01:48: MACRO.SRCJINPUT.MAR; 1 (8) 
REGS_PC = 0000000F SYMS$V_ABS = 04 
RMS$_EOF ereeeere = X 03 SYMS$V_ASN z 08 
cM] z 99 9 B SYMS$V_CRFO = D 
Bidees = 8 1 SYM$V_DEBUG = 0 32 
TAT 9 4 ORG 04 SYMSV_DEF z 00000 
STBSK_PG_MISS z 8 38 oA - SYMSV=DELMAC 2 0 0 09 
TSS$K_INFO = 000000 ; SYM$V_EPT 5 4 
STSSM_SEVERITY = Hd SYMSV_EXTRN = 8 8 On3 
SSS_FAC_N = 8 00 f SYM$V_GLOBL = 8 0002 
STSS$V~FAC_NO = 0000001 SYMSV-LOCAL = 6 0006 
SumSCCOSE eeeereee = x 05 SYM$V_ODBG = OA 
SUMSL INE eeeneeee =X 3 SYMSV_REF = 9 07 
SUMS_EDITSCLSH = 00848800 SYMSV-RELPSECT = 08 
SUMS ~NORMAL = 00848001 SYM$V_SUPR = 0000000E 
SuUM_6 FLAGS BOO OOS SYMS$V_WEAK = 00000001 
SUM_ERROR 444 a R 03 SYMSV_XCRF = 4 4 
SUM_K_BLN 0000001D SYM$W_FLAG 0000009 
SUM_L_ISDATA 00000004 SYSS$CCOSE eeeneeee GX 03 
SUM_L_STS 00000000 SYSSDISCONNECT eenaeeee GX 03 
SUM_M_AUDIT = 00000001 TAB = 00000009 
UM_M_AUDI TNEW = 00000002 x1 = 00000400 
SUM_M_DELET = 00000010 X2 = 0000000F 
SUM_M_SRCUPD = 00000004 
SUM_M_SUBCLSH = 00000008 
SUM_Q_AUDDS 00000008 
SUM_G_FILESP 00000010 
SUM_V_AUDIT = 00000000 
SUM_V_AUDI TNEW = 00000001 
SUM_V_DELETE = 00000004 
SUM_V_SRCUPD = 44's e't4 
SUM_V—SUBCLS = 0000000 
SUM_W_INSERT_NO QO00001A 
SUM_W_LINE_ 00000018 
SYMSB_NAM 00000004 
SYM$B_SEG 0000000C 
SYM$B_ TOKEN 00000008 
SYM$K_BLKSIZ 00000000 
SYMS$K_MAXLEN = 4944S 
SYMSK_TWOCOL = 00000010 
SYMSL_LINK 00000000 
SYMSL_VAL 00000005 
SYMSM_ABS = 00000010 
Syaen-tat = $3999599 
SYNSA-DE BUG = 00000020 
YMSM_DEF = 00000001 
SYMSM_DELMAC = 00000200 
SYMSM_EPT = 00000200 
SYMSM_EXTRN = 00000008 
SYMSM_GLOBL = 00000004 
SYMSM_LOCAL = 004 
SYMSM_ODBG = 59 
SYMSM_REF s 0 
SYMSM_RELPSECT = 
SYMSM_SUPR = 4 
SYMSM~ WE AK = 00000 | 
SYMSM_XCRF = 1 | 
| 
| 
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: GET NEXT CHARACTER 1 mites be 20: 18 fared Macro V04-00 Page 17 
|Psect synopsis “SEP=1984 01:48: MACRO.SRCJINPUT.MAR; 1 (8) 
| $eerenoceace near eewe co 
! Psect synopsis ! 
penne aneame eeas$ 
PSECT name Allocation PSECT No. 
0000008 ( a Bt G,3 LCL EXE 
00 8 9 ( a? 1¢( #1.) \NOPIC USR CON REL LCL NOS EXE WRT NOVEC BYTE 
000 cs g oa ¢ ( g-) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
00000246 ( 582.) ( $3.) NOPIC USR CON’ REL GBL NOSHR EXE RD NOWRT NOVEC LONG 
000000D1 ¢ 209.) 04 ¢ 4.) NOPIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC LONG 
| Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 29 SE SS 00:00:01.67 
Command processing 107 00:00:00.4 OF RD be "a6 
Pass 263 00:00:04.89 es Se ea 
Symbol table sort 0 00:00:00.65 00:00:02.10 
Pass 102 00:00:01.14 00:00:04.59 
Symbol table output 50 00:00:00.23 00:00:00.43 
Psect synopsis output 2 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 555 00:00:07.43 00:00:37.72 


The working set Limit was 1500 pages. 
42445 bytes (83 pages) of virtual memory were used to buffer the intermediate code. 

2 non-local and 38 local symbols. 
2 object records in Pass 2. 

macros. 


There were 40 pages of symbol table space allocated to hold 
471 source Lines were read in Pass 1, producing 
25 pages of virtual memory were used to define 2 


+ + 
! Macro Library statistics H 
been meen woe eee ete wre meena woe 


Macros defined 


-$52280UA 8: CSHRLIBJSUM.MLB; 1 3 
~$255$DUA28 : (MACRO. OBJ JMACRO.MLB: 1 12 
$255$DUA28: (SYSLIBJSTARLET.MLB; 2 9 
TOTALS ‘all libraries) 24 


827 GETS were required to define 24 macros. 
There were no errors, warnings or information messages. 


} 
| 
| 
| 
Attributes | 
NOPIC USR CON ABS woes NO woRe NOWRT NOVEC BYTE 
MACRO/LIS=L1S$: INPUT/OBJ=0BJ$: INPUT MSRC$: INPUT/UPDATE=(ENHS$: INPUT) +LIB$:MACRO/LIB+SHRLIB$:SUM/LIB | 


. ABS. 

. BLANK . 

$aBS$ 

MACSRO_CODE_P15 

MACS$RO_CODE—P1 
| 
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